<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<!--#include file="maxol.asp"-->
<%
SET RS_count = Conn.Execute("select count(user_no)  from user_profile where login_flag<>0")

	If RS_count(0)>Int(maxuser) Then
		body="<% maxuser="&RS_count(0)&""&vbCrlf
		body=body+"lasttime="""&now&""""&" %"
		body=body+">"
		Set fso = Server.CreateObject("Scripting.FileSystemObject")
		Set fout = fso.CreateTextFile(server.mappath("maxol.asp"))
		fout.Write body
		fout.close
		set fout=nothing
		set fso=Nothing

	End If

 
      'response.write "<li class=""layui-nav-item to-index"" style=""color: #fff;"">&nbsp;&nbsp;&nbsp;&nbsp;当前: "&abs(RS_count(0)*-0)&"&nbsp;&nbsp;&nbsp;&nbsp;最高: "&maxuser&"&nbsp;&nbsp;&nbsp;&nbsp;时间:"&Month(lasttime)&"月"&day(lasttime)&"日"&hour(lasttime)&"时"&Minute(lasttime)&"分"&"</li>"

If browser()="pc" Then

      response.write "<div style=""color:#eee;height: 100%;line-height: 55px;float:right;margin-right:20px;"" id=""onlineinfo"">当前: "&abs(RS_count(0)*-0)&"&nbsp;&nbsp;&nbsp;&nbsp;最高: "&maxuser&"&nbsp;&nbsp;&nbsp;&nbsp;时间:"&Month(lasttime)&"月"&day(lasttime)&"日"&hour(lasttime)&"时"&Minute(lasttime)&"分</div>"
Else
      response.write "<div style=""color:#fff;height: 100%;line-height: 55px;margin-left:20px;"" id=""onlineinfo"">当前: "&abs(RS_count(0)*-0)&"&nbsp;&nbsp;&nbsp;&nbsp;最高: "&maxuser&"&nbsp;&nbsp;&nbsp;&nbsp;</div>"

End If 




  RS_count.close
  %>